﻿<?php
    include_once '../../../../controlador/php/conexion/Conexion10.php';
    $con = new Conexion10();

    $N = $_REQUEST['n'];
    $OID = $_REQUEST['oid'];
    
    if($N == 1){
        $Tabla = "HCNSOLEXA";
    }
    else if($N == 2){
        $Tabla = "HCNSOLPNQX";
    }

    $listado = "SELECT  GENSERIPS.GENARESER1, $Tabla.OID,ADNINGRESO.AINCONSEC AS INGRESO, $Tabla.HCSCANTI AS CANTIDAD,
                CAST($Tabla.HCSOBSERV AS TEXT) AS OBSERVACIONES,$Tabla.HCSFECSOL AS FECHA_SOLICITUD,
                HCNFOLIO.HCNUMFOL AS NUM_FOLIO,GENSERIPS.SIPCODIGO AS CODIGO, ltrim(rtrim(GENSERIPS.SIPNOMBRE)) AS MUESTRA,
                GENPACIEN.PACNUMDOC AS DOCUMENTO,RTrim(GENPACIEN.PACPRINOM +' '+
                GENPACIEN.PACSEGNOM +' '+ GENPACIEN.PACPRIAPE +' '+ GENPACIEN.PACSEGAPE) AS NOM_PACIENTE,
                HPNDEFCAM.HCACODIGO AS CAMA,GENMEDICO.GMENOMCOM AS MEDICO,Case
                When $Tabla.HCSESTADO = '0' Then 'URGENTE' Else 'RUTINARIO'
                End ESTADO, GENPACIEN.GPAFECNAC, CAST(DATEDIFF(DD, GENPACIEN.GPAFECNAC, GETDATE()) / 365.25 AS INT) AS EDAD,Case
                When ADNINGRESO.AINTIPING = '1' Then 'AMBULATORIO' Else 'HOSPITALARIO'
                End CLASE_INGRESO,Case When ADNINGRESO.AINURGCON = '0' Then 'URGENCIAS'
                When ADNINGRESO.AINURGCON = '1' Then 'CONSULTA_EXTERNA'
                When ADNINGRESO.AINURGCON = '2' Then 'NACIDO_HOSPITAL'
                When ADNINGRESO.AINURGCON = '3' Then 'REMITIDO'
                When ADNINGRESO.AINURGCON = '4' Then 'HOSPI_URGENCIAS'
                When ADNINGRESO.AINURGCON = '5' Then 'HOSPITALIZACIÓN'
                When ADNINGRESO.AINURGCON = '6' Then 'IMAGENES'
                When ADNINGRESO.AINURGCON = '7' Then 'LABORATORIO'
                End INGRESO_POR,Case SLNORDSER.SOSESTADO When 0 Then 'REGISTRADO'
                When 1 Then 'CONFIRMADO' When 2 Then 'ANULADO'
                End As ESTADOORDEN,CONVERT(NVARCHAR(100),SLNORDSER.SOSDESORD) AS ORDEN_SERVICIO,
                SLNORDSER.SOSORDSER,usuario.usu_oid,RTRIM(usuario.usu_nombres +' '+usuario.usu_apellidos)AS sin_indicaciones,
                usu2.usu_oid,RTRIM(usu2.usu_nombres +' '+usu2.usu_apellidos)AS solicitud_cita,
                usu3.usu_oid,RTRIM(usu3.usu_nombres +' '+usu3.usu_apellidos)AS facturado,
                usu4.usu_oid,RTRIM(usu4.usu_nombres +' '+usu4.usu_apellidos)AS translado,
                usu5.usu_oid,RTRIM(usu5.usu_nombres +' '+usu5.usu_apellidos)AS tomado,
                usu6.usu_oid,RTRIM(usu6.usu_nombres +' '+usu6.usu_apellidos)AS interpretado,
                usu7.usu_oid,RTRIM(usu7.usu_nombres +' '+usu7.usu_apellidos)AS asignar_cita,
                usu8.usu_oid,RTRIM(usu8.usu_nombres +' '+usu8.usu_apellidos)AS soli_autori,
                usu9.usu_oid,LTRIM(usu9.usu_nombres +' '+usu9.usu_apellidos)AS autorizar,
                usu10.usu_oid,RTRIM(usu10.usu_nombres +' '+usu10.usu_apellidos)AS notoma,
                usu10.usu_oid,RTRIM(usu11.usu_nombres +' '+usu11.usu_apellidos)AS noauto,
                autorizarn,fecauton,usu_oidaun,GENDETCON.GDENOMBRE,RepetirExa,FechaRep,usu_oidRep,InfoPaciente,FechaInfo,usu_oidinfo,
                ADNINGRESO.OID AS OIDINGRESO,HCNRESSVFC.HCRFECCONF,RTRIM(usu12.usu_nombres +' '+usu12.usu_apellidos)AS Repetir,
                usu13.usu_oid,RTRIM(usu13.usu_nombres +' '+usu13.usu_apellidos)AS Informo,ExamenC,FechaExamenC,Usu_oidExa,
                RTRIM(usu14.usu_nombres +' '+usu14.usu_apellidos)AS ExamenCritico
                From GENPACIEN Inner Join
                ADNINGRESO On GENPACIEN.OID = ADNINGRESO.GENPACIEN Inner Join
                HCNFOLIO On ADNINGRESO.OID = HCNFOLIO.ADNINGRESO Inner Join
                GENMEDICO On HCNFOLIO.GENMEDICO = GENMEDICO.OID Inner Join
                $Tabla On $Tabla.HCNFOLIO = HCNFOLIO.OID Inner Join
                GENSERIPS On $Tabla.GENSERIPS = GENSERIPS.OID Inner Join
                SLNSERHOJ On $Tabla.SLNSERHOJ = SLNSERHOJ.OID Inner Join
                SLNSERPRO On SLNSERHOJ.OID = SLNSERPRO.OID Inner Join
                SLNORDSER On SLNSERPRO.SLNORDSER1 = SLNORDSER.OID And SLNSERPRO.ADNINGRES1 =
                SLNORDSER.ADNINGRES1 Left Outer Join
                HPNESTANC On ADNINGRESO.OID = HPNESTANC.ADNINGRES Left Outer Join
                HPNDEFCAM On HPNESTANC.HPNDEFCAM = HPNDEFCAM.OID
                left join planillaUsuario..segimagenes on $Tabla.OID = planillaUsuario..segimagenes.hcnsolexa
                left join planillaUsuario..usuario on planillaUsuario..segimagenes.usu_oid = planillaUsuario..usuario.usu_oid
                left join planillaUsuario..usuario as usu2 on planillaUsuario..segimagenes.usu_oidsc = usu2.usu_oid
                left join planillaUsuario..usuario as usu3 on planillaUsuario..segimagenes.usu_oidf = usu3.usu_oid
                left join planillaUsuario..segtranslado on $Tabla.OID = planillaUsuario..segtranslado.hcnsolexa
                left join planillaUsuario..usuario as usu4 on planillaUsuario..segtranslado.usu_oid = usu4.usu_oid
                left join planillaUsuario..segtomado on $Tabla.OID = planillaUsuario..segtomado.hcnsolexa
                left join planillaUsuario..usuario as usu5 on planillaUsuario..segtomado.usu_oid = usu5.usu_oid
                left join planillaUsuario..seginterpre on $Tabla.OID = planillaUsuario..seginterpre.hcnsolexa
                left join planillaUsuario..usuario as usu6 on planillaUsuario..seginterpre.usu_oid = usu6.usu_oid
                left join planillaUsuario..segasigcita on $Tabla.OID = planillaUsuario..segasigcita.hcnsolexa
                left join planillaUsuario..usuario as usu7 on planillaUsuario..segasigcita.usu_oid = usu7.usu_oid
                left join planillaUsuario..usuario as usu8 on planillaUsuario..segimagenes.usu_oidsa = usu8.usu_oid
                left join planillaUsuario..usuario as usu9 on planillaUsuario..segimagenes.usu_oidau = usu9.usu_oid
                left join planillaUsuario..usuario as usu10 on planillaUsuario..segtomado.usu_oidn = usu10.usu_oid
                left join planillaUsuario..usuario as usu11 on planillaUsuario..segimagenes.usu_oidaun = usu11.usu_oid
                left join GENDETCON on ADNINGRESO.GENDETCON = GENDETCON.OID
                LEFT OUTER JOIN HCNRESSVFC ON SLNSERHOJ.OID = HCNRESSVFC.SLNSERHOJ
                LEFT JOIN planillaUsuario..usuario as usu12 on planillaUsuario..segimagenes.usu_oidRep = usu12.usu_oid
                LEFT JOIN planillaUsuario..usuario as usu13 on planillaUsuario..segimagenes.usu_oidinfo = usu13.usu_oid
                LEFT JOIN planillaUsuario..usuario as usu14 on planillaUsuario..segimagenes.Usu_oidExa = usu14.usu_oid
                Where 
                $Tabla.OID= '".$OID."'
                Order By $Tabla.HCSFECSOL DESC";
    
    $res = $con->query($listado);

    while($re = mssql_fetch_array($res)){
        $lista[] = array_map(utf8_encode,$re);
    }
     print_r(json_encode($lista));
    
    $con->cerrarConexion(); 
    
?>